﻿Imports System.Collections
Imports System.Collections.Generic
Imports System.Collections.ObjectModel
Imports System.Collections.Specialized
Imports System.Windows.Input



''' <summary>
''' Représente un item actionnable depuis une vue
''' 
''' </summary>
''' <remarks>
''' 
''' </remarks>
Public Class ViewModelCommand
    Inherits ViewModelBase

    ''' <summary>
    ''' 
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub New(ByVal displayName As String, ByVal command As ICommand)
        MyBase.DisplayName = displayName
        Me.Command = command
    End Sub

    ''' <summary>
    ''' 
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub New()
       
    End Sub


    Private _command As ICommand
    ''' <summary>
    ''' 
    ''' </summary>
    ''' <remarks></remarks>
    Public Property Command() As ICommand
        Get
            Return _command
        End Get
        Private Set(ByVal value As ICommand)
            _command = value
            OnPropertyChanged("Command")
        End Set
    End Property
End Class

